:- module(page_pieces, [
        amos_top_logo/1,
        amos_left_arrow/1
                     ], []).

:- use_module(library(lists), [append/3]).
:- use_module(amos(configuration), [images_url/1]).

amos_top_logo(image(Where, [])):-
        images_url(URLAt),
        atom_codes(URLAt, URL),
%        append(URL, "/amos_top_short.gif", URLStr),
        append(URL, "/amos_logo.png", URLStr),
        atom_codes(Where, URLStr).

amos_left_arrow(image(Where, [align=middle])):-
        images_url(URLAt),
        atom_codes(URLAt, URL),
        append(URL, "/dot_right.gif", URLStr),
        atom_codes(Where, URLStr).
        


